Grafik: Lindenmayer01

Script mit Doppelklick oder STRG+R aufrufen!
____________________________________________


L-Systeme Bume
--------------------------- 
ScriptBegin
var Grafik  = "Script Lindenmayer";
var Tiefe   = 6;
var Alpha   = 35;
var Schritt = 0.53;
var Axiom   = "X";
var Regeln  = "F() X()";

function X()
{ return "F[+X]F[-X]+X"; 
}

function F()
{ return "FF"; 
}


function init()
{  t.setBrush("Gray");
   t.setPage();
   t.makeLSystem();
   //t.msg(t.showLInfo());
   //t.msg(t.showLModule());
   //t.setAutoPaint();
}

function draw()
{ var x=0; var y=-90;
  
  //t.drawKoordSystem();
  t.setPen("White",0.5);
  t.text(-135,90,135,-90, t.showLModule());

  t.setNoStyle(); t.turnTo(90); t.moveTo(x,y);
  t.setPen("Red",0.7);
  t.drawLSystem(0);

  t.setPen("Red",2);
  t.goTo(x-135,y);
  t.turnTo(0);
  t.move(270,1);
  

}
ScriptEnd -----------------------------
